home *** CD-ROM | disk | FTP | other *** search
/ Workplace Effectiveness:…ecision-Making Strategies / Workplace Effectiveness: Decision-Making Strategies.iso / pc / Files / Candles.dxr / 00008_PRINT & Write text file.ls < prev    next >
Encoding:
Text File  |  1998-12-16  |  1.2 KB  |  38 lines
  1. global gMasterData
  2.  
  3. on printButton
  4.   if iAmActivated(gMasterData) then
  5.     getPrintData()
  6.     set vThisField to string(getUserArea(gMasterData)) && "field"
  7.     print(the text of member vThisField)
  8.   else
  9.     alert("Printing is unavailable until an activity is completed.")
  10.   end if
  11. end
  12.  
  13. on getPrintData
  14.   set vThisField to string(getUserArea(gMasterData)) && "field"
  15.   set the text of member vThisField to EMPTY
  16.   set vTempText to EMPTY
  17.   put "---- Blow Out the Candles ----------" & RETURN & "How to Reduce Options in a Group" & RETURN & RETURN after vTempText
  18.   put getBigString() & RETURN & RETURN after vTempText
  19.   put RETURN after vTempText
  20.   set the text of member vThisField to vTempText
  21. end
  22.  
  23. on getBigString
  24.   set vText to EMPTY
  25.   repeat with i = 1 to 9
  26.     put line i of field "print1" & RETURN after vText
  27.   end repeat
  28.   put the text of field "candle field1" of castLib "Shared" & RETURN after vText
  29.   repeat with i = 10 to 11
  30.     put line i of field "print1" & RETURN after vText
  31.   end repeat
  32.   put the text of field "candle field2" of castLib "Shared" & RETURN after vText
  33.   repeat with i = 12 to 13
  34.     put line i of field "print1" & RETURN after vText
  35.   end repeat
  36.   return vText
  37. end
  38.